home *** CD-ROM | disk | FTP | other *** search
/ Die Speccy' 97 / Die Speccy' 97.iso / amiga_system / the_aminet / comm / cnet / quips.lha / QuipShow < prev   
Text File  |  1995-10-11  |  926b  |  13 lines
  1. /**************************************************************************\
  2.             $VER: QuipShow, v1.41 (11-Oct-95) by Dotoran!
  3. \**************************************************************************/
  4. options results ; signal on SYNTAX ; signal on ERROR ; signal on IOERR
  5. tr=transmit ; a=random(1,100,time('s'))
  6. call open(f1,'pfiles:Quips/Quip'||right(a,3,'0'),'r') ; quip=readln(f1)
  7. call close(f1) ; tr 'n1c9>>--z6c4 Quip 'a' z0c9--> ca'quip;exit
  8. SYNTAX:;ERROR:;IOERR:;e1=' Error: 'rc' ('errortext(rc)')'
  9.   e2='  Line: 'left(sigl,4)'File:';gu 1311992;a=result;gu 1311960;b=result;c='"'a||b'"';e2=e2' 'c;tr e1;tr e2;logentry e1;logentry e2
  10.   e=sourceline(sigl);do while e~='';e3='Source: 'left(e,37);tr e3;logentry e3;e=substr(e,38);end;bufferflush;exit
  11. /** Last Edited: 11-Oct-95 ************************************************\
  12. \****************************************** Frontiers BBS (716)/823-9892 **/
  13.